home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / telephone list (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  160 lines
  1. 3 gosub60100:clr
  2. 5 dim n$(20),g$(38)
  3. 6 bs$=""
  4. 10 poke53280,8:poke53281,.
  5. 20 se$=" [154][208]ress [198]1 [154]for no change, [198]7 [154]to delete."
  6. 50 print"[147][129] [212]elephone [204]ister   -   by [194]ruce [202]aeger "
  7. 110 sp$="":forx=1to40
  8. 120 sp$=sp$+" ":next
  9. 130 print"     [154][210]eading [196][193][212][193] ... [208]lease wait."
  10. 142 open15,8,15:open3,8,3,"numbers":input#15,er,er$
  11. 144 ifer<>.thenclose3:close15:gosub1100:goto50
  12. 150 formm=1to20:gosub1150
  13. 170 n$(mm)=n$:next
  14. 180 close3:close15
  15. 230 print"[145]                                       "
  16. 240 gosub1000:gosub1200
  17. 241 gosub1050
  18. 242 geta$:ifa$=""then242
  19. 244 ifa$>="[193]"anda$<="t"thena$=chr$(asc(a$)-128)
  20. 245 ifa$>="a"anda$<="t"then249
  21. 246 ifa$=" "thengosub1250:printbs$:gosub9000:goto241
  22. 247 ifa$=chr$(13)then260
  23. 248 goto242
  24. 249 nu=asc(a$)-64
  25. 250 gosub1250:printbs$se$:print"[154][206]ame:";:gosub2000:n1$=n$:ifa$="[133]"then252
  26. 251 ifa$="[136]"thenre=1:goto1500
  27. 252 gosub1250:printbs$se$:print"[154][200]ome [208]hone:";:gosub2000:n2$=n$:ifa$="[133]"then255
  28. 254 ifa$="[136]"thenre=2:goto1500
  29. 255 gosub1250:printbs$se$:print"[154][215]ork [208]hone:";:gosub2000:n3$=n$
  30. 256 ifa$="[133]"then258
  31. 257 ifa$="[136]"thenre=3:goto1500
  32. 258 n$(nu)=n1$+"/"+n2$+"/"+n3$:goto240
  33. 260 open15,4,15:close15:ifst=.then265
  34. 263 gosub1250:printbs$"       [197]rror: [208]rinter not online.      "
  35. 264 fora=1to2000:next:goto240
  36. 265 gosub1250:printbs$"        [159][208]rinting ... please wait."
  37. 270 lc$=chr$(17)
  38. 280 open 4,4
  39. 290 print#4:print#4
  40. 300 print#4,lc$;"[212][197][204][197][208][200][207][206][197] [206][213][205][194][197][210][211]"
  41. 310 print#4
  42. 320 print#4,lc$;"[206][193][205][197]";
  43. 330 print#4,left$(sp$,36);
  44. 340 print#4,lc$;"[200][207][205][197]";
  45. 350 print#4,left$(sp$,14);
  46. 360 print#4,lc$;"[215][207][210][203]"
  47. 370 forx=1to80
  48. 380 print#4,"-";
  49. 390 next:print#4
  50. 400 rem now print names & numbers
  51. 410 forx=1to20
  52. 420 rem separate names & numbers
  53. 430 n$=n$(x)
  54. 440 y=1
  55. 450 ify>len(n$)then470
  56. 460 ifmid$(n$,y,1)<>"/"theny=y+1:goto450
  57. 470 na$=left$(n$,y-1)
  58. 480 n$=mid$(n$,y+1)
  59. 490 y=1
  60. 500 ify>len(n$)thenhn$=n$:bn$="":goto540
  61. 510 ifmid$(n$,y,1)<>"/"theny=y+1:goto500
  62. 520 hn$=left$(n$,y-1)
  63. 530 bn$=mid$(n$,y+1)
  64. 540 na$=left$(na$+sp$,40)
  65. 550 hn$=left$(hn$+sp$,18)
  66. 555 ifna$=sp$then570
  67. 560 print#4,lc$;na$;hn$;bn$
  68. 570 next
  69. 580 print#4:close4
  70. 680 goto240
  71. 690 rem
  72. 1000 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  73. 1010 fora=1to20:print" [221]"spc(36)"[221]":next
  74. 1020 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  75. 1050 printbs$"  [154][208]ress [[193][154]-[212][154]] to change or delete.    "
  76. 1060 print"  [208]ress [210][197][212][213][210][206] [154]to print, [211][208][193][195][197] [154]to quit."
  77. 1070 return
  78. 1100 er$="[197][210][210][207][210]:[150]"+er$:ta=20-len(er$)/2
  79. 1101 print""tab(ta)er$""
  80. 1102 print"[154]  [208]ress [211][208][193][195][197] [154]to try again, [209] [154]to quit."
  81. 1104 geta$:ifa$<>" "anda$<>"q"anda$<>"[160]"anda$<>"[209]"then1104
  82. 1106 ifa$=" "ora$="[160]"thenreturn
  83. 1108 gosub9000:goto1102
  84. 1150 a=1:n$=""
  85. 1155 get#3,a$:ifa$=chr$(13)then1170
  86. 1160 n$=n$+a$:goto1155
  87. 1170 return
  88. 1200 print"";:formm=1to20:n$="":forb=1tolen(n$(mm)):a$=mid$(n$(mm),b,1)
  89. 1205 ifa$="/"then1208
  90. 1206 n$=n$+a$
  91. 1207 next
  92. 1208 print"                                 [145]"
  93. 1210 print"[158]"chr$(192+mm)". [129]"n$:nextmm:return
  94. 1250 printbs$"                                       "
  95. 1260 print"                                       ":return
  96. 1500 gosub1250:printbs$"[154] [193]re you sure you want to delete? ([217][154]/[206][154])":poke198,.
  97. 1510 geta$:ifa$<>"y"anda$<>"n"anda$<>"[206]"anda$<>"[217]"then1510
  98. 1520 ifa$="y"thenn$(nu)=" / / ":gosub1250:goto240
  99. 1530 on re goto 250,252,255
  100. 2000 print"[164]";:fora=1to26
  101. 2010 geta$:ifa$=""then2010
  102. 2015 ifa$=chr$(13)then2080
  103. 2017 if(a$=chr$(20))and(a>1)thenprint"[157][157]  [157][157][164]";:a=a-1:g$(a)="":goto2010
  104. 2019 if(a=26)then2010
  105. 2020 if(a$>=" "anda$<="z")or(a$>="[193]"anda$<="[218]")or(a$=" ")then2060
  106. 2030 ifa$="[133]"thenreturn
  107. 2040 ifa$="[136]"thenreturn
  108. 2050 goto2010
  109. 2060 print"[157]"a$;:poke212,.:print"[164]";
  110. 2070 g$(a)=a$:next
  111. 2080 print"[157] ";:n$="":forb=1toa-1:n$=n$+g$(b):next:return
  112. 8000 open3,8,3,"numbers,s,w"
  113. 8005 fora=1to20
  114. 8010 print#3," / / "
  115. 8015 next
  116. 8020 close3:stop
  117. 9000 print"[145]  [154][193]re you sure you want to quit? ([217][154]/[206][154]) "
  118. 9010 geta$:ifa$<>"n"anda$<>"y"anda$<>"[206]"anda$<>"[217]"then9010
  119. 9020 ifa$="n"anda$<>"[206]"thenprint"[145]";:return
  120. 9023 open15,8,15,"i0":print#15,"s0:numbers":close15
  121. 9026 open3,8,3,"numbers,s,w":fora=1to20:print#3,n$(a):next:close3
  122. 9030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  123. 9040 print"[147]";:ifer<>63thenend
  124. 9050 load"hello connect",8
  125. 60100 pn$="[212][197][204][197][208][200][207][206][197] [204][201][211][212][197][210]":an$="[194][217]:  [194][210][213][195][197] [202][193][197][199][197][210]"
  126. 60110 bo=14:sc=1:cl=06:c1=3:c2=09:c3=3:c4=09:c5=00:c6=00:c7=00
  127. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  128. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  129. 60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
  130. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  131. 60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
  132. 60190 poke646,c7:print""tab(20-len(an$)/2);an$
  133. 60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
  134. 60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
  135. 60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  136. 60230 poke646,c4:print" [165]                                  [167]"
  137. 60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  138. 60245 poke198,.:goto60360
  139. 60250 poke646,cl
  140. 60255 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  141. 60260 fora=1to3:gosub60470:next
  142. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  143. 60280 fora=1to16:gosub60470:next
  144. 60290 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  145. 60300 fora=1to3:gosub60470:next
  146. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  147. 60320 poke53280,bo:poke53281,sc:goto60140
  148. 60360 print"";
  149. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
  150. 60380 fora=1to100
  151. 60390 geta$:ifa$=" "ora$="[160]"thenreturn
  152. 60400 next
  153. 60410 print"";
  154. 60420 print"[165]                                  [167]"
  155. 60430 fora=1to100
  156. 60440 geta$:ifa$=" "ora$="[160]"thenreturn
  157. 60450 next
  158. 60460 goto60360
  159. 60470 print" [161][146][161]":return
  160.